home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / background_3987.txt < prev    next >
Text File  |  1989-08-22  |  3KB  |  132 lines
  1. -- background: 3987 from stack: in
  2. -- bmap block id: 4256
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: openBack
  6. ----- HyperTalk script -----
  7. --on openBackground
  8. set cursor to watch
  9. push card
  10. lock screen
  11. go card 1
  12. show 34 cards
  13. pop card
  14. unlock screen
  15. end openBackground
  16.  
  17. on closeBackground
  18.   global mapLoc
  19.   put 13 into mapLoc
  20. end closeBackground
  21.  
  22.  
  23.  
  24.  
  25. -- part 10 (button)
  26. -- low flags: 00
  27. -- high flags: 2000
  28. -- rect: left=455 top=317 right=342 bottom=483
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 18612 / 18612
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: next
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   if the number of this card > 36 then exit mouseUp
  40.   if the number of this card < 3 then
  41.     repeat until the number of this card = 3
  42.       visual dissolve slowly
  43.       go next
  44.       wait 1 second
  45.     end repeat
  46.   end if
  47.   if the number of this card < 23 then
  48.     repeat until the number of this card = 23
  49.       go next
  50.     end repeat
  51.     wait 1 second
  52.   end if
  53.   if the number of this card < 34 then
  54.     repeat until the number of this card = 34
  55.       go next
  56.     end repeat
  57.     visual dissolve
  58.     go card 35
  59.     wait 1 second
  60.   end if
  61.   if the number of this card = 35 then
  62.     visual dissolve
  63.     go card 36
  64.     wait 2 seconds
  65.   end if
  66.   if the number of this card = 36 then click at the loc of card button "zoomButton"
  67. end mouseUp
  68.  
  69.  
  70. -- part 11 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=428 top=317 right=342 bottom=456
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 18621 / 18621
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: 
  82.  
  83.  
  84. -- part 12 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=482 top=317 right=342 bottom=510
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 18623 / 18623
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96.  
  97.  
  98. -- part 14 (field)
  99. -- low flags: 01
  100. -- high flags: 0000
  101. -- rect: left=128 top=0 right=22 bottom=508
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 21
  106. -- text size: 18
  107. -- style flags: 10240
  108. -- line height: 19
  109. -- part name: Title
  110.  
  111.  
  112. -- part 15 (button)
  113. -- low flags: 00
  114. -- high flags: A002
  115. -- rect: left=1 top=1 right=16 bottom=40
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 3
  120. -- text size: 9
  121. -- style flags: 0
  122. -- line height: 12
  123. -- part name: Menu
  124. ----- HyperTalk script -----
  125. on mousedown
  126.   global checkedItem, clickTime
  127.   put 3 into checkedItem
  128.   mainMenu
  129.   put the ticks into clickTime
  130. end mousedown
  131.  
  132.